home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / util1 / yk211src.lha / Yak_2.11_Src / Prefs / BGUI / Root_window.c < prev    next >
C/C++ Source or Header  |  1995-11-16  |  32KB  |  669 lines
  1. /************************************************************************
  2. **************************  BGUI ROOT WINDOW  ***************************
  3. ************************************************************************/
  4.  
  5.  
  6. #define __USE_SYSBASE
  7.  
  8. #include <exec/memory.h>
  9. #include <exec/types.h>
  10. #include <intuition/intuition.h>
  11. #include <intuition/classes.h>
  12. #include <intuition/classusr.h>
  13. #include <intuition/imageclass.h>
  14. #include <intuition/gadgetclass.h>
  15. #include <libraries/bgui.h>
  16. #include <libraries/bgui_macros.h>
  17. #include <libraries/asl.h>
  18. #include <workbench/workbench.h>
  19. #include <proto/exec.h>
  20. #include <proto/dos.h>
  21. #include <proto/intuition.h>
  22. #include <proto/bgui.h>
  23. #include <proto/icon.h>
  24. #include <proto/wb.h>
  25. #include <proto/asl.h>
  26. #include <clib/alib_protos.h>
  27. #include <string.h>
  28. #include <stdlib.h>
  29.  
  30. #include "code.h"
  31. #include "version.h"
  32. #include "yak.h"
  33. #include "hotkey_types.h"
  34. #include "gui.h"
  35. #include "filereq.h"
  36. #include "Requesters.h"
  37. #include "Settings.h"
  38. #include "Root_Window.h"
  39. #include "Root_Menus.h"
  40.  
  41. #define CATCOMP_NUMBERS
  42. #include "locale/yak_locale_strings.h"
  43.  
  44. /************************************************************************
  45. *****************************  REFERENCES  ******************************
  46. ************************************************************************/
  47.  
  48. IMPORT LONG (*HandleReturnID)(LONG ID);
  49. IMPORT BOOL CreateIcons;
  50. IMPORT char *ProgramName;
  51. IMPORT char *PrefsFile;
  52. IMPORT char *PrefsHelp;
  53. IMPORT struct NotifyRequest NotifyRequest;
  54.  
  55. /************************************************************************
  56. *****************************  LOCAL DATA  ******************************
  57. ************************************************************************/
  58.  
  59. struct Window   *RootWnd = NULL;
  60. Object                  *RootWndObj = NULL;
  61. Object                  *RootObjects[Root_CNT];
  62. UBYTE                   *RootWdt;
  63. struct IBox             RootBox;
  64. BOOL                    RootBoxValid = FALSE;
  65. BOOL                    RootWdi = FALSE;
  66.  
  67. /************************************************************************
  68. *************************  CREATEROOTWINDOW()  **************************
  69. *************************************************************************
  70. * Create the root window object tree. Returns the window object ptr or
  71. * NULL if create failed. Gadgets are initialised with default values,
  72. * InitRootGadgets must be called after window opened to reflect current
  73. * settings.
  74. *
  75. *************************************************************************/
  76.  
  77. APTR CreateRootWindow(VOID)
  78. {
  79. Object  *obj,*indicobj;
  80.  
  81. /* maplist: converts slider level tag to indicator level tag */
  82. static struct TagItem SliderToIndicMap[] = {
  83.         SLIDER_Level, INDIC_Level, TAG_DONE
  84. };
  85.  
  86. obj = WindowObject,
  87.         WINDOW_PubScreenName, PubScreenName,
  88.         WINDOW_Title,           RootWdt,
  89.         WINDOW_ScreenTitle,     getString(COPYRIGHT_STRING),
  90.         WINDOW_SmartRefresh, TRUE,
  91.         WINDOW_SizeBottom,      FALSE,                  /* put size gadget in right border */
  92.         WINDOW_SizeRight,       TRUE,
  93.         WINDOW_AutoAspect,      TRUE,                   /* automatic edges pixel width */
  94.         WINDOW_Position,        POS_CENTERMOUSE,
  95.         (RootBoxValid ? WINDOW_Bounds : TAG_IGNORE), &RootBox,
  96.         WINDOW_AppWindow,       TRUE,                   /* make it an appwindow */
  97.         WINDOW_MenuStrip,       RootNewMenu,
  98.         WINDOW_CloseGadget,     FALSE,
  99.         (TextFont ? WINDOW_Font : TAG_IGNORE),  &Attr,  /* use font if specified */
  100.         WINDOW_HelpFile,        PrefsHelp,              /* online help system */
  101.         WINDOW_HelpNode,        "MainWindow",
  102.         WINDOW_MasterGroup,
  103.                 VGroupObject, Spacing(4), HOffset(4), VOffset(4),
  104.                         StartMember,
  105.                                 /* windows activation group */
  106.                                 HGroupObject, Spacing(24), HOffset(6), VOffset(4),
  107.                                                 /* add frame & title to Windows Activation group */
  108.                                                 NeXTFrame,
  109.                                                 FRM_Title,              getString(WINDOWS_ACTIVATE_STRING),
  110.                                                 FRM_Flags,              FRF_EDGES_ONLY|FRF_CENTER_TITLE|FRF_HIGHLIGHT_TITLE,
  111.                                         StartMember,
  112.                                                 VGroupObject, Spacing(2),
  113.                                                         StartMember,
  114.                                                                 CH_KeyActivate = CheckBoxObject,
  115.                                                                         LAB_Label,              getString(KEY_ACTIVATE_STRING),
  116.                                                                         LAB_Place,              PLACE_RIGHT,
  117.                                                                         GA_ID,                  GD_KeyActCheck,
  118.                                                                         ButtonFrame,
  119.                                                                         FRM_Flags,              FRF_EDGES_ONLY,
  120.                                                                 EndObject, FixMinWidth,
  121.                                                         EndMember,
  122.                                                         VarSpace(DEFAULT_WEIGHT/10),
  123.                                                         StartMember,
  124.                                                                 CH_MMBActivate = CheckBoxObject,
  125.                                                                         LAB_Label,              getString(MMB_ACTIVATE_STRING),
  126.                                                                         LAB_Place,              PLACE_RIGHT,
  127.                                                                         GA_ID,                  GD_MMBActCheck,
  128.                                                                         ButtonFrame,
  129.                                                                         FRM_Flags,              FRF_EDGES_ONLY,
  130.                                                                 EndObject, FixMinWidth,
  131.                                                         EndMember,
  132.                                                         VarSpace(DEFAULT_WEIGHT/10),
  133.                                                         StartMember,
  134.                                                                 CH_RMBActivate = CheckBoxObject,
  135.                                                                         LAB_Label,              getString(RMB_ACTIVATE_STRING),
  136.                                                                         LAB_Place,              PLACE_RIGHT,
  137.                                                                         GA_ID,                  GD_RMBActCheck,
  138.                                                                         ButtonFrame,
  139.                                                                         FRM_Flags,              FRF_EDGES_ONLY,
  140.                                                                 EndObject, FixMinWidth,
  141.                                                         EndMember,
  142.                                                 EndObject,
  143.                                         EndMember,
  144.                                         StartMember,
  145.                                                 VGroupObject, Spacing(2),
  146.                                                         StartMember,
  147.                                                                 CH_AutoPoint = CheckBoxObject,
  148.                                                                         LAB_Label,              getString(AUTOPOINT_STRING),
  149.                                                                         LAB_Place,              PLACE_RIGHT,
  150.                                                                         GA_ID,                  GD_AutoCheck,
  151.                                                                         ButtonFrame,
  152.                                                                         FRM_Flags,              FRF_EDGES_ONLY,
  153.                                                                 EndObject, FixMinWidth,
  154.                                                         EndMember,
  155.                                                         VarSpace(DEFAULT_WEIGHT/10),
  156.                                                         StartMember,
  157.                                                                 STR_AutoScreen = StringObject,
  158.                                                                         LAB_Label,              getString(AUTOSCREENS_STRING),
  159.                                                                         RidgeFrame,
  160.                                                                         STRINGA_MaxChars,99,
  161.                                                                         STRINGA_MinCharsVisible,12,
  162.                                                                         GA_ID,                  GD_AutoPat,
  163.                                                                         GA_TabCycle,    TRUE,
  164.                                                                 EndObject,
  165.                                                         EndMember,
  166.                                                         VarSpace(DEFAULT_WEIGHT/10),
  167.                                                         StartMember,
  168.                                                                 HGroupObject, Spacing(2),
  169.                                                                         StartMember,
  170.                                                                                 SL_AutoPointDelay = SliderObject,
  171.                                                                                         LAB_Label,              getString(AUTOPOINT_DELAY_STRING),
  172.                                                                                         SLIDER_Min,             0,
  173.                                                                                         SLIDER_Max,             5,
  174.                                                                                         SLIDER_Level,   0,
  175.                                                                                         GA_ID,                  GD_AutoPointDelay,
  176.                                                                                 EndObject,
  177.                                                                         EndMember,
  178.                                                                         StartMember,
  179.                                                                                 indicobj = IndicatorObject,
  180.                                                                                         INDIC_Min,              0,
  181.                                                                                         INDIC_Max,              5,
  182.                                                                                         INDIC_Level,    0,
  183.                                                                                         INDIC_FormatString,"%1lu",
  184.                                                                                         INDIC_Justification,IDJ_CENTER,
  185.                                                                                 EndObject, Weight(DEFAULT_WEIGHT/10),
  186.                                                                         EndMember,
  187.                                                                 EndObject,
  188.                                                         EndMember,
  189.                                                 EndObject,
  190.                                         EndMember,
  191.                                 EndObject, Weight(DEFAULT_WEIGHT*3),
  192.                         EndMember,
  193.                         VarSpace(DEFAULT_WEIGHT/10),
  194.                         StartMember,
  195.                                 HGroupObject, Spacing(2),
  196.                                         StartMember,
  197.                                                 /* screens activation group */
  198.                                                 VGroupObject, /*Spacing(2), */HOffset(6), VOffset(4),
  199.                                                                 /* add frame & title to screens activation group */
  200.                                                                 NeXTFrame,
  201.                                                                 FRM_Title,              getString(SCREEN_ACTIVATE_STRING),
  202.                                                                 FRM_Flags,              FRF_EDGES_ONLY|FRF_CENTER_TITLE|FRF_HIGHLIGHT_TITLE,
  203.                                                         StartMember,
  204.                                                                 CH_ScreensActivation = CheckBoxObject,
  205.                                                                         LAB_Label,              getString(SCREEN_ACTIVATE_STRING),
  206.                                                                         LAB_Place,              PLACE_RIGHT,
  207.                                                                         GA_ID,                  GD_ScrActCheck,
  208.                                                                         ButtonFrame,
  209.                                                                         FRM_Flags,              FRF_EDGES_ONLY,
  210.                                                                 EndObject, FixMinWidth,
  211.                                                         EndMember,
  212.                                                         VarSpace(DEFAULT_WEIGHT*11/10),
  213.                                                 EndObject, Weight(DEFAULT_WEIGHT/3),
  214.                                         EndMember,
  215.                                         VarSpace(DEFAULT_WEIGHT/20),
  216.                                         StartMember,
  217.                                                 VGroupObject, Spacing(2),
  218.                                                         StartMember,
  219.                                                                 /* autopoptofront group */
  220.                                                                 VGroupObject, /*Spacing(2), */HOffset(6), VOffset(4),
  221.                                                                                 /* add frame & title to autopoptofront group */
  222.                                                                                 NeXTFrame,
  223.                                                                                 FRM_Title,              getString(AUTOPOPTOFRONT_STRING),
  224.                                                                                 FRM_Flags,              FRF_EDGES_ONLY|FRF_CENTER_TITLE|FRF_HIGHLIGHT_TITLE,
  225.                                                                         StartMember,
  226.                                                                                 CH_AutoPopToFront = CheckBoxObject,
  227.                                                                                         LAB_Label,              getString(AUTOPOPTOFRONT_STRING),
  228.                                                                                         LAB_Place,              PLACE_RIGHT,
  229.                                                                                         GA_ID,                  GD_AutoPopCheck,
  230.                                                                                         ButtonFrame,
  231.                                                                                         FRM_Flags,              FRF_EDGES_ONLY,
  232.                                                                                 EndObject, FixMinWidth,
  233.                                                                         EndMember,
  234.                                                                         VarSpace(DEFAULT_WEIGHT/10),
  235.                                                                         StartMember,
  236.                                                                                 STR_PopWindows = StringObject,
  237.                                                                                         LAB_Label,              getString(POPWINDOWS_STRING),
  238.                                                                                         RidgeFrame,
  239.                                                                                         STRINGA_MaxChars,99,
  240.                                                                                         STRINGA_MinCharsVisible,12,
  241.                                                                                         GA_ID,                  GD_PopPat,
  242.                                                                                         GA_TabCycle,    TRUE,
  243.                                                                                 EndObject,
  244.                                                                         EndMember,
  245.                                                                 EndObject,
  246.                                                         EndMember,
  247.                                                 EndObject,
  248.                                         EndMember,
  249.                                 EndObject, Weight(DEFAULT_WEIGHT*2),
  250.                         EndMember,
  251.                         VarSpace(DEFAULT_WEIGHT/10),
  252.                         StartMember,
  253.                                 HGroupObject, Spacing(2),
  254.                                         StartMember,
  255.                                                 BT_MouseCycling = Button(
  256.                                                                 getString(MOUSECYCLING_STRING),
  257.                                                                 GD_MouseCycling),
  258.                                         EndMember,
  259.                                         StartMember,
  260.                                                 BT_Blanking = Button(
  261.                                                                 getString(Blanking),
  262.                                                                 GD_Blanking),
  263.                                         EndMember,
  264.                                 EndObject,
  265.                         EndMember,
  266.                         StartMember,
  267.                                 HGroupObject, Spacing(2),
  268.                                         StartMember,
  269.                                                 BT_EditHotkeys = Button(
  270.                                                                 getString(EDIT_HOTKEYS_STRING),
  271.                                                                 GD_EditHotkeys),
  272.                                         EndMember,
  273.                                         StartMember,
  274.                                                 BT_Miscellaneous = Button(
  275.                                                                 getString(MISCELLANEOUS_STRING),
  276.                                                                 GD_Miscellaneous),
  277.                                         EndMember,
  278.                                 EndObject,
  279.                         EndMember,
  280.                         VarSpace(DEFAULT_WEIGHT/10),
  281.                         StartMember,
  282.                                 HorizSeparator,
  283.                         EndMember,
  284.                         StartMember,
  285.                                 HGroupObject, Spacing(2),
  286.                                         StartMember,
  287.                                                 BT_Save = Button(getString(SAVE_STRING),GD_Save),
  288.                                         EndMember,
  289.                                         VarSpace(DEFAULT_WEIGHT/3),
  290.                                         StartMember,
  291.                                                 BT_Use = Button(getString(USE_STRING),GD_Use),
  292.                                         EndMember,
  293.                                         VarSpace(DEFAULT_WEIGHT/3),
  294.                                         StartMember,
  295.                                                 BT_Cancel = Button(getString(CANCEL_STRING),GD_Cancel0),
  296.                                         EndMember,
  297.                                 EndObject,
  298.                         EndMember,
  299.                 EndObject,
  300.         EndObject;
  301.  
  302. if (obj)
  303.         {
  304.         /* set tab cycle order between string gadgets */
  305.         DoMethod(obj,WM_TABCYCLE_ORDER,STR_AutoScreen,STR_PopWindows,NULL);
  306.  
  307.         /* add map from slider to its level indicator */
  308.         AddMap(SL_AutoPointDelay,indicobj,SliderToIndicMap);
  309.  
  310.         /* add conditional map: disables STR_AutoScreen and */
  311.         /* SL_AutoPointDelay when CH_AutoPoint is unchecked */
  312.         AddCondit(CH_AutoPoint,STR_AutoScreen,GA_Selected,TRUE,
  313.                 GA_Disabled,FALSE,GA_Disabled,TRUE);
  314.         AddCondit(CH_AutoPoint,SL_AutoPointDelay,GA_Selected,TRUE,
  315.                 GA_Disabled,FALSE,GA_Disabled,TRUE);
  316.  
  317.         /* add conditional map: disables STR_PopWindows */
  318.         /* when CH_AutoPopToFront is unchecked */
  319.         AddCondit(CH_AutoPopToFront,STR_PopWindows,GA_Selected,TRUE,
  320.                 GA_Disabled,FALSE,GA_Disabled,TRUE);
  321.         }
  322.  
  323. return(obj);
  324. }
  325.  
  326. /************************************************************************
  327. *************************  INITIALIZE GADGETS  **************************
  328. *************************************************************************
  329. * Initialize the root window gadgets to reflect current settings.
  330. * 
  331. *************************************************************************/
  332.  
  333. static void InitAutoPointGadgets(void)
  334. {
  335. InitWindowGadget(GDX_AutoPat, STRINGA_TextVal, (LONG)patterns[YP_AUTOSCR_PAT].patstr, ROOT_WINDOW);
  336. InitWindowGadget(GDX_AutoPat, GA_Disabled, !autopoint, ROOT_WINDOW);
  337.  
  338. InitWindowGadget(GDX_AutoPointDelay, SLIDER_Level, autopoint_delay, ROOT_WINDOW);
  339. InitWindowGadget(GDX_AutoPointDelay, GA_Disabled, !autopoint, ROOT_WINDOW);
  340. }
  341.  
  342. static void InitAutoPopGadgets(void)
  343. {
  344. InitWindowGadget(GDX_PopPat, STRINGA_TextVal, (LONG)patterns[YP_POPWIN_PAT].patstr, ROOT_WINDOW);
  345. InitWindowGadget(GDX_PopPat, GA_Disabled, !autopop, ROOT_WINDOW);
  346. }
  347.  
  348. static void InitRootGadgets(void)
  349. {
  350. InitToggleGadgets(ROOT_WINDOW);
  351. InitAutoPopGadgets();
  352. InitAutoPointGadgets();
  353. }
  354.  
  355. /************************************************************************
  356. **************************  CLOSEROOTWINDOW()  **************************
  357. *************************************************************************
  358. * Close the root window, disposing of the root window object.
  359. *
  360. *************************************************************************/
  361.  
  362. void CloseRootWindow(void)
  363. {
  364. if (RootWnd)
  365.         {
  366.         GetAttr(WINDOW_Bounds,RootWndObj,(ULONG *) &RootBox);
  367.         RootBoxValid = TRUE;
  368.         }
  369.  
  370. DisposeObject(RootWndObj);
  371. RootWndObj = NULL;
  372. RootWnd = NULL;
  373. }
  374.  
  375. /************************************************************************
  376. **************************  SHOWROOTWINDOW()  ***************************
  377. *************************************************************************
  378. * Create and open the root window and initialize the gadgets to reflect
  379. * current settings. Sets up HandleReturnID function, curwin, curwinobj
  380. * and curwinID. Returns TRUE or FALSE to indicate success.
  381. *
  382. *************************************************************************/
  383.  
  384. BOOL ShowRootWindow(void)
  385. {
  386. static char title[80];
  387.  
  388. if (!RootWdi)
  389. {
  390.     RootWdi = TRUE;
  391.  
  392.     strcpy(title, getString(Prefs_Window_TITLE));
  393.     strcat(title, " : ");
  394.     strcat(title,VERSION_NAME);
  395.     RootWdt = title;
  396.     InitRootNewMenu ();
  397. }
  398.  
  399. if (RootWndObj = (Object *)CreateRootWindow())
  400.         {
  401.         if (RootWnd = WindowOpen(RootWndObj))
  402.                 {
  403.                 InitRootGadgets();
  404.                 HandleReturnID = HandleRootReturnID;
  405.                 curwin = RootWnd;
  406.                 curwinobj = RootWndObj;
  407.                 curwinID = ROOT_WINDOW;
  408.                 return(TRUE);
  409.                 }
  410.         }
  411.  
  412. CloseRootWindow();
  413. curwin = NULL;
  414. curwinobj = NULL;
  415. wndsigflag = 0L;
  416. appwinsigflag = 0L;
  417. return(FALSE);
  418. }
  419.  
  420. /************************************************************************
  421. ************************  HANDLEROOTRETURNID()  *************************
  422. *************************************************************************
  423. * Handle msgs arriving at root window - supply the ID returned by BGUI.
  424. * Returns either RET_OKAY or RET_QUIT.
  425. *
  426. *************************************************************************/
  427.  
  428. LONG HandleRootReturnID(LONG id)
  429. {
  430. LONG    ret;
  431.  
  432. ret = RET_OKAY;
  433.  
  434. switch(id)
  435.         {
  436.         case GD_EditHotkeys:
  437.                 if (!SwitchFromRootWindow(HOTKEY_WINDOW))
  438.                         {
  439.                         PostError(getString(Couldnt_open_other_window_ERR));
  440.                         ret = RET_QUIT;
  441.                         }
  442.                 break;
  443.  
  444.         case GD_Miscellaneous:
  445.                 if (!SwitchFromRootWindow(MISC_WINDOW))
  446.                         {
  447.                         PostError(getString(Couldnt_open_other_window_ERR));
  448.                         ret = RET_QUIT;
  449.                         }
  450.                 break;
  451.  
  452.         case GD_Blanking:
  453.                 if (!SwitchFromRootWindow(BLANK_WINDOW))
  454.                         {
  455.                         PostError(getString(Couldnt_open_other_window_ERR));
  456.                         ret = RET_QUIT;
  457.                         }
  458.                 break;
  459.  
  460.         case GD_MouseCycling:
  461.                 if (!SwitchFromRootWindow(MCYCLING_WINDOW))
  462.                         {
  463.                         PostError(getString(Couldnt_open_other_window_ERR));
  464.                         ret = RET_QUIT;
  465.                         }
  466.                 break;
  467.  
  468.         case GD_AutoPat:
  469.                 NewPattern(GDX_AutoPat, &patterns[YP_AUTOSCR_PAT],
  470.                                 (struct Gadget *)STR_AutoScreen, ROOT_WINDOW);
  471.                 break;
  472.  
  473.         case GD_PopPat:
  474.                 NewPattern(GDX_PopPat, &patterns[YP_POPWIN_PAT],
  475.                                 (struct Gadget *)STR_PopWindows, ROOT_WINDOW);
  476.                 break;
  477.  
  478.         case GD_Save:
  479.                 DisableYakInterface();
  480.                 EndNotify(&NotifyRequest);
  481.                 SaveSettings(ENVARC_CONFIG_FILE);
  482.                 CopyFile(ENVARC_CONFIG_FILE, ENV_CONFIG_FILE);
  483.                 StartNotify(&NotifyRequest);
  484.                 EnableYakInterface();
  485.                 ret   = RET_QUIT;
  486.                 break;
  487.  
  488.         case GD_Use:
  489.                 DisableYakInterface();
  490.                 EndNotify(&NotifyRequest);
  491.                 SaveSettings(ENV_CONFIG_FILE);
  492.                 StartNotify(&NotifyRequest);
  493.                 ret   = RET_QUIT;
  494.                 break;
  495.  
  496.         case GD_Cancel0:
  497.                 ret   = RET_QUIT;
  498.                 break;
  499.  
  500.         case GD_AutoCheck: /* toggle */
  501.                 autopoint ^= TRUE;
  502.                 break;
  503.  
  504.         case GD_AutoPopCheck: /* toggle */
  505.                 autopop ^= TRUE;
  506.                 break;
  507.  
  508.         case GD_KeyActCheck: /* toggle */
  509.                 keyactivate ^= TRUE;
  510.                 break;
  511.  
  512.         case GD_ScrActCheck: /* toggle */
  513.                 scractivate ^= TRUE;
  514.                 break;
  515.  
  516.         case GD_RMBActCheck: /* toggle */
  517.                 rmbactivate ^= TRUE;
  518.                 break;
  519.  
  520.         case GD_MMBActCheck: /* toggle */
  521.                 mmbactivate ^= TRUE;
  522.                 break;
  523.  
  524.         case GD_AutoPointDelay:
  525.                 {
  526.                 ULONG   tmp;
  527.  
  528.                 GetAttr(SLIDER_Level,SL_AutoPointDelay,&tmp);
  529.                 autopoint_delay = tmp;
  530.                 }
  531.                 break;
  532.  
  533.         case MD_OPEN:
  534.                 {
  535.                 FileReqParams   frp;
  536.                 char                    *file;
  537.  
  538.                 frp.frp_Window      = curwin;
  539.                 frp.frp_Title       = getString(FILEREQ_LOAD_STRING);
  540.                 frp.frp_InitialFile = PrefsFile;
  541.                 frp.frp_Flag1       = 0L;
  542.  
  543.                 DisableYakInterface();
  544.                 if (file=OpenFileRequester(&frp))
  545.                         {
  546.                         LoadSettings(file);
  547.                         FreeVec(PrefsFile);
  548.                         PrefsFile = file;
  549.                         InitRootGadgets();
  550.                         }
  551.                 EnableYakInterface();
  552.                 }
  553.                 break;
  554.  
  555.         case MD_SAVE:
  556.                 DisableYakInterface();
  557.                 EndNotify(&NotifyRequest);
  558.                 SaveSettings(ENVARC_CONFIG_FILE);
  559.                 CopyFile(ENVARC_CONFIG_FILE, ENV_CONFIG_FILE);
  560.                 StartNotify(&NotifyRequest);
  561.                 EnableYakInterface();
  562.                 break;
  563.  
  564.         case MD_SAVEAS:
  565.                 {
  566.                 FileReqParams   frp;
  567.                 char                    *file;
  568.  
  569.                 frp.frp_Window      = curwin;
  570.                 frp.frp_Title       = getString(FILEREQ_SAVEAS_STRING);
  571.                 frp.frp_InitialFile = PrefsFile;
  572.                 frp.frp_Flag1       = FRF_DOSAVEMODE;
  573.  
  574.                 DisableYakInterface();
  575.                 EndNotify(&NotifyRequest);
  576.                 if (file=OpenFileRequester(&frp))
  577.                         {
  578.                         SaveSettings(file);
  579.                         if (CreateIcons)
  580.                                 {
  581.                                 struct DiskObject *dobj;
  582.  
  583.                                 /* Get project icon */
  584.                                 if (!(dobj=GetDiskObject("ENV:Sys/def_yak")))
  585.                                         dobj = GetDefDiskObject(WBPROJECT);
  586.  
  587.                                 if (dobj)
  588.                                         {
  589.                                         /* Set values */
  590.                                         dobj->do_DefaultTool = ProgramName;
  591.                                         dobj->do_Type        = WBPROJECT;
  592.  
  593.                                         /* Write icon */
  594.                                         PutDiskObject(file, dobj);
  595.  
  596.                                         /* Free icon */
  597.                                         FreeDiskObject(dobj);
  598.                                         }
  599.                                 }
  600.                         FreeVec(PrefsFile);
  601.                         PrefsFile = file;
  602.                         }
  603.                 StartNotify(&NotifyRequest);
  604.                 EnableYakInterface();
  605.                 }
  606.                 break;
  607.  
  608.         case MD_HIDE:
  609.         case WMHI_CLOSEWINDOW:
  610.                 HideInterface();
  611.                 break;
  612.  
  613.         case MD_ABOUT:
  614.                 DisableYakInterface();
  615.                 PostError(getString(About_Yak_STRING));
  616.                 EnableYakInterface();
  617.                 break;
  618.  
  619.         case MD_QUIT:
  620.                 ret   = RET_QUIT;
  621.                 break;
  622.  
  623.         case MD_DEFAULT:
  624.                 DisableYakInterface();
  625.                 SetDefaultSettings();
  626.                 InitRootGadgets();
  627.                 EnableYakInterface();
  628.                 break;
  629.  
  630.         case MD_LASTSAVED:
  631.                 DisableYakInterface();
  632.                 LoadSettings(ENVARC_CONFIG_FILE);
  633.                 InitRootGadgets();
  634.                 EnableYakInterface();
  635.                 break;
  636.  
  637.         case MD_ACTIVE:
  638.                 DisableYakInterface();
  639.                 LoadSettings(ENV_CONFIG_FILE);
  640.                 InitRootGadgets();
  641.                 EnableYakInterface();
  642.                 break;
  643.  
  644.         case MD_CREATEICONS:
  645.                 CreateIcons ^= TRUE;
  646.                 break;
  647.  
  648.         default:
  649.                 break;
  650.         }
  651.  
  652. return ret;
  653. }
  654.  
  655. /************************************************************************
  656. ***********************  SWITCHFROMROOTWINDOW()  ************************
  657. *************************************************************************
  658. * Switch from root window to the sub-window whose ID is supplied.
  659. * Returns TRUE or FALSE to indicate success.
  660. *
  661. *************************************************************************/
  662.  
  663. BOOL SwitchFromRootWindow(UBYTE WindowID)
  664. {
  665. CloseRootWindow();
  666. return(ShowWindowID(WindowID));
  667. }
  668.  
  669.